home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Language (lang) / Lazy-Scheme / Examples / TestandGenerate / cont4 < prev    next >
Encoding:
Text File  |  1990-02-27  |  980 b   |  41 lines  |  [TEXT/Help]

  1. ;LYNDON*B=JOHNSON
  2.  
  3. ( r0 b n r1 o r2 r3 s d r4 h y l j)
  4.  
  5.  
  6. ((0 1 2 3 4 5 6 7)
  7.  (0 1 2 3 4 5 6 7 8 9)
  8.  (0 1 2 3 4 5 6 7 8 9)
  9.  (0 1 2 3 4 5 6 7)
  10.  (0 1 2 3 4 5 6 7 8 9)
  11.  (0 1 2 3 4 5 6 7)
  12.  (0 1 2 3 4 5 6 7)
  13.  (0 1 2 3 4 5 6 7 8 9)
  14.  (0 1 2 3 4 5 6 7 8 9)
  15.  (0 1 2 3 4 5 6 7)
  16.  (0 1 2 3 4 5 6 7 8 9)
  17.  (0 1 2 3 4 5 6 7 8 9)
  18.  (0 1 2 3 4 5 6 7 8 9)
  19.  (0 1 2 3 4 5 6 7 8 9))
  20.  
  21. ((=? (* n b) (+ n (* 10 r0)))
  22.  (=? (+ (* o b) r0) (+ o (* 10 r1)))
  23.  (=? (+ (* d b) r1) (+ s (* 10 r2)))
  24.  (=? (+ (* n b) r2) (+ n (* 10 r3)))
  25.  (=? (+ (* y b) r3) (+ h (* 10 r4)))
  26.  (=? (+ (* l b) r4) (+ o (* 10 j)))
  27.  (<>? l 0) (<>? b 0) (<>? j 0)
  28.  (<>? l y) (<>? l n) (<>? l d)
  29.  (<>? l o) (<>? l b) (<>? l j)
  30.  (<>? l h) (<>? l s) (<>? y n)
  31.  (<>? y d) (<>? y o) (<>? y b)
  32.  (<>? y j) (<>? y h) (<>? y s)
  33.  (<>? n d) (<>? n o) (<>? n b)
  34.  (<>? n j) (<>? n h) (<>? n s)
  35.  (<>? d o) (<>? d b) (<>? d j)
  36.  (<>? d h) (<>? d s) (<>? o b)
  37.  (<>? o j) (<>? o h) (<>? o s)
  38.  (<>? b j) (<>? b h) (<>? b s)
  39.  (<>? j h) (<>? j s) (<>? h s))
  40.  
  41.